home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGMISC / FORTRAN2.LZH / LEFT.FOR next >
Encoding:
Text File  |  1988-02-08  |  1.9 KB  |  86 lines
  1.       SUBROUTINE LEFT ( STRING )
  2. C*
  3. C*                  *******************************
  4. C*                  *******************************
  5. C*                  **                           **
  6. C*                  **          LEFT             **
  7. C*                  **                           **
  8. C*                  *******************************
  9. C*                  *******************************
  10. C*
  11. C*     SUBPROGRAM :
  12. C*          LEFT JUSTIFY
  13. C*
  14. C*     AUTHOR :
  15. C*          ART RAGOSTA
  16. C*          MS 207-5
  17. C*          AMES RESEARCH CENTER
  18. C*          MOFFETT FIELD, CA  94035
  19. C*          (415) 694-5578
  20. C*
  21. C*     PURPOSE :
  22. C*          REPLACES A STRING WITH THE SAME STRING LESS LEADING BLANKS.
  23. C*
  24. C*     INPUT ARGUMENTS :
  25. C*          STRING - THE STRING TO BE LEFT JUSTIFIED.
  26. C*
  27. C*     OUTPUT ARGUMENTS :
  28. C*          STRING - THE LEFT JUSTIFIED STRING (INPLACE).
  29. C*
  30. C*     INTERNAL WORK AREAS :
  31. C*          NONE
  32. C*
  33. C*     COMMON BLOCKS :
  34. C*          NONE
  35. C*
  36. C*     FILE REFERENCES :
  37. C*          NONE
  38. C*
  39. C*     DATA BASE ACCESS :
  40. C*          NONE
  41. C*
  42. C*     SUBPROGRAM REFERENCES :
  43. C*          NONE
  44. C*
  45. C*     ERROR PROCESSING :
  46. C*          NONE
  47. C*
  48. C*     TRANSPORTABILITY LIMITATIONS :
  49. C*          NONE
  50. C*
  51. C*     ASSUMPTIONS AND RESTRICTIONS :
  52. C*          NONE
  53. C*
  54. C*     LANGUAGE AND COMPILER :
  55. C*          ANSI FORTRAN 77
  56. C*
  57. C*     VERSION AND DATE :
  58. C*          VERSION I.0     15-OCT-84
  59. C*
  60. C*     CHANGE HISTORY :
  61. C*          15-OCT-84    INITIAL VERSION
  62. C*
  63. C***********************************************************************
  64. C*
  65.       CHARACTER *(*) STRING
  66. C
  67.       IF (STRING(1:1) .NE. ' ') RETURN
  68.       L = LEN(STRING)
  69. C
  70. C --- FIND FIRST NON-BLANK CHARACTER
  71. C
  72.       DO 10 I=1,L
  73.          IF (STRING(I:I) .NE. ' ') GO TO 20
  74. 10       CONTINUE
  75. C
  76. C --- ALL CHARACTERS WERE BLANK
  77. C
  78.       RETURN
  79. C
  80. 20    STRING = STRING(I:L)
  81.       RETURN
  82.       END
  83. C
  84. C---END LEFT
  85. C
  86.